From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 28 Mar 1993 22:56:29 +0000 (+0000)
Subject: (fill-individual-paragraphs): When skipping mail headers, skip to a blank line.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~96648
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=55718e15d6caa9822cdfda70e63f8d4d7099181c;p=emacs.git

(fill-individual-paragraphs): When skipping mail headers, skip to a blank line.
---

diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el
index a905bef78d1..8486e81c2e2 100644
--- a/lisp/textmodes/fill.el
+++ b/lisp/textmodes/fill.el
@@ -292,7 +292,7 @@ MAIL-FLAG for a mail message, i. e. don't fill header lines."
       (beginning-of-line)
       (if mailp 
 	  (while (or (looking-at "[ \t]*[^ \t\n]*:") (looking-at "[ \t]*$"))
-	    (forward-line 1)))
+	    (search-forward "\n\n" nil 'move)))
       (narrow-to-region (point) max)
       ;; Loop over paragraphs.
       (while (progn (skip-chars-forward " \t\n") (not (eobp)))